﻿Namespace Text
    Public Module Chinese
        Public Function OnlyChinese(ByVal mText As String) As String
            Return System.Text.RegularExpressions.Regex.Replace(mText, "[^\u4e00-\u9fa5]", "")
        End Function
    End Module
End Namespace